home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Fall
/
rerun-1985-fall.d64
/
test compiler
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
348b
|
22 lines
5 rem test compiler
10 b=13320*4:poke53281,7:poke646,6
20 print"[147]test.comp"
30 poke781,10:poke782,10:poke783,0
40 sys65520:print"test"
50 fori=1to5step1
60 printi:next
70 k=peek(197):ifk=64then70
80 ifk=3thenend:rem f7
90 x=peek(653)
100 a=k+60354
110 ifx=0thena=a-65
120 c=peek(a):printchr$(c);
130 ifc=65thengosub180
140 ifc<65thenprintchr$(60);
150 ifc>65thenprintchr$(62);
160 ifc<>65thenpokeb,2
170 printchr$(65):goto70
180 printchr$(61);
190 pokeb,5
200 return